home *** CD-ROM | disk | FTP | other *** search
/ Red Eye Press Kit / Red Eye Press Kit.iso / pc / main.dxr / SCRIPTS_63_upDown.ls < prev    next >
Encoding:
Text File  |  2005-07-18  |  647 b   |  40 lines
  1. property upDown
  2.  
  3. on getPropertyDescriptionList me
  4.   description = [:]
  5.   addProp(description, #upDown, [#default: EMPTY, #format: #string, #comment: "ARROW:", #range: ["UP", "DOWN"]])
  6.   return description
  7. end
  8.  
  9. on beginSprite me
  10.   scrollRate = 5
  11.   case upDown of
  12.     "UP":
  13.       upDown = scrollRate
  14.     "DOWN":
  15.       upDown = -scrollRate
  16.   end case
  17. end
  18.  
  19. on mouseEnter me
  20.   sendAllSprites(#scrollImage, upDown)
  21.   cursor(280)
  22. end
  23.  
  24. on mouseLeave me
  25.   sendAllSprites(#scrollImage)
  26.   cursor(0)
  27. end
  28.  
  29. on mouseDown me
  30.   sendAllSprites(#scrollImage, upDown * 10)
  31. end
  32.  
  33. on mouseUp me
  34.   sendAllSprites(#scrollImage, upDown)
  35. end
  36.  
  37. on endSprite me
  38.   cursor(0)
  39. end
  40.